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-- OpDefsGenerator.mesa; edited by Johnsson, July 5, 1978 12:10 PM 

DIRECTORY 

lODefs: FROM "iodefs". 
MiscDefs: FROM "miscdefs", 
SegmentDefs: FROM "segmentdefs". 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "stringdef s" » 
SystemDefs: FROM "systemdef s" , 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM StreamDefs, SegmentDefs; 

OpDefsGenerator: PROGRAM 

IMPORTS lODefs, MiscDefs, StreamDefs, SegmentDefs. StringDefs, SystemDefs, TimeDefs 

BEGIN 

CompStrDesc: TYPE - RECORD[ 

offset, length: CARDINAL]; 

nChars: CARDINAL; 

InStream, apOutStream, amOutStream, bOutStream: StreamHandle; 

numopcodes: CARDINAL = 256; 
opcode: TYPE » [0. .numopcodes) ; 

StringData: ARRAY opcode OF STRING; 

Name: PROCEDURE [s: STRING] » 
BEGIN 

C: CHARACTER; 
nc: CARDINAL <- 0; 
CollectingChars: BOOLEAN ^ FALSE; 
s. length <- 0; 

DO 

IF InStream. endofCInStream] THEN RETURN; 

c ^ InStream. get[InStream]; 

SELECT c FROM 

lODefs.SP. lODefs.TAB. lOOefs.CR «> 

IF CollectingChars THEN EXIT; 
IN [•0..'9] «> 
BEGIN 

IF -CollectingChars THEN 
BEGIN 

Se t I ndex[ InStream. Mod ifyIndex[GetIndex[ InStream], -1]] ; 
EXIT 
END; 
StringDef s.AppendChar[s,c]; 
END; 
IN ['A. . 'Z], IN ['a.. 'z] «> 
BEGIN 

CollectingChars <- TRUE; 
StringDef s.AppendChar[s,c]; 
END; 
ENDCASE => SIGNAL SyntaxError; 
ENDLOOP; 

nChars ^ nChars + s. length; 
RETURN 
END; 

Atom: PROCEDURE [s: STRING, del: CHARACTER] » 
BEGIN 

c: CHARACTER; 
nc: CARDINAL ♦- 0; 
CollectingChars: BOOLEAN ^ FALSE; 

DO 

IF InStream. endof[InStream] THEN SIGNAL SyntaxError; 

c ♦- InStream. get[InStream]; 

SELECT c FROM 

lODefs.SP, lODefs.CR »> 

IF CollectingChars THEN EXIT; 
IN ['0..'9]. IN [•A..'Z]. IN ['a..'z] «> 

BEGIN s[nc] <- c; nc ^ nc+1; CollectingChars *- TRUE END; 
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ENDCASE ■> EXIT; 
ENDLOOP; 
s. length ♦- nc; 

IF c j^ del THEN SIGNAL SyntaxError; 
RETURN 
END; 

SyntaxError: SIGNAL « CODE; 

CollectOpData: PROCEDURE - 
BEGIN OPEN SystemDefs; 
i: opcode; 

name: STRING <- [20]; 
s: STRING <- [8]; 
octal, decimal: CARDINAL; 
CRcount: CARDINAL <- 0; 

push: POINTER TO ARRAY opcode OF CARDINAL *- AnocateSegment[numopcodes] ; 
pop: POINTER TO ARRAY opcode OF CARDINAL ♦- Al locateSegment[numopcodes]; 
len: POINTER TO ARRAY opcode OF CARDINAL ♦- AnocateSegment[numopcodes] ; 
mark: POINTER TO ARRAY opcode OF CHARACTER ^ Al locateSegment[numopcodes]; 
MiscDef s.Zero[push .numop codes]; 
MiscDefs.Zero[pop,numopcodes]; 
MiscDefs.Zero[len,numopcodes]; 
MiscDef s.SetBlock [mark. ' F.numopcodes]; 

FOR i IN opcode DO 

IF StringData[i] ^ NIL THEN 

BEGIN FreeHeapString[StringData[i]]; StringData[i] ♦■ NIL END; 
ENDLOOP; 
nChars <- 0; 
UNTIL CRcount = 3 DO 

IF InStream.get[InStream3 » lODefs.CR THEN CRcount ^ CRcount+1; 
ENDLOOP; 
THROUGH opcode DO 

Name[name]; IF InStream.endof[InStream] THEN EXIT; 

Atom[s, '(]; 

octal <- StringDef s.StringToNumber[s, 8]; 

Atom[s. ')]; 

decimal ♦- StringDefs .StringToNumber[s, 10]; 

IF decimal = THEN decimal ♦- octal 

ELSE IF octal = THEN octal ^ decimal; 

IF decimal # octal THEN SIGNAL OctalDecimalError[octal ]; 

IF name. length ^ THEN 

BEGIN 

StringData[octal] ♦- SystemDefs .AllocateHeapString[name. length]; 

StringDefs . Appends tring[Stri ngData[octal ] .name]; 

END; 
Atom[s, ' , ]; 

push[octal] *- StringDefs. StringToOctal[s]; 
Atom[s, ' .]; 

pop[octal] *- StringDefs. StringToOctal[s]; 
Atom[s, ' . ]; 

len[octal] ♦- StringDefs. StringToOctal[s]; 
Atom[s. ' ; ]; 
mark[octal] <- s[0]; 
ENDLOOP; 

FOR i IN opcode DO 
IF i MOD 4 « THEN 

BEGIN 

f: lODefs.NumberFormat « [8. TRUE, TRUE, 3]; 

OutString["--"L]; 

OutName[StringData[i].12]; 

0utName[StringData[i+l],13]; 

OutName[StringData[i+2],13]: 

OutName[StringData[i+3].13]; 

OutString[" "L]; 

OutNumF[i .f]; OutChar['-]; 0utNumF[i+3 ,f ] ; OutString[" 
"L]; 

END; 
OutString[" 0["L]; 
OutNum[push[i]]; OutChar['.]; 
OutNum[pop[i]]; OutChar['.]; 
OutNum[len[i]]; OutChar[\]; 
OutChar[mark[i]]; OutChar[']]; 
IF i MOD 4 - 3 THEN 
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BEGIN 

IF i ■ LAST[opcode] THEN OutString["] ; "L] 

ELSE OutChar['.]; 

OutChar[IOD8fs.CR]; 

END 
ELSE OutCharC .]; 
ENDLOOP; 
SystemDefs.FreeSegment[push]; 
SystemDef s.FreeSegment[pop]; 
SystemDef s. FreeSegmentClen] ; 
RETURN 
END; 

OctalDecimalError: SIGNAL [CARDINAL] » CODE; 
OpNameTooLong: ERROR [CARDINAL] - CODE; 

OutStrings: PROCEDURE ■ 
BEGIN 

tSH: StreamHandle; 
charpos: CARDINAL ♦- 0; 
i: opcode; 
j: CARDINAL; 

bOutStream. reset[bOutStreani]; 

bOutStream.put[bOutStreani, numopcodes*SIZE[CompStrDesc]+l]; 

FOR i IN opcode DO 

bOu tS t ream. put[bOutSt ream, charpos]; 

j ^ IF StringData[i] ^ NIL THEN StringData[i] . length ELSE 0; 

bOutStream.put[bOutStream, j]; 

charpos ♦- charpos + j; 

ENDLOOP; 
bOutStream.put[bOutStream, nChars]; 
bOu tS t ream. put[bOutSt ream, nChars]; 
C1eanupDiskStream[bOutStream]; 
tSH ♦- CreateByteStream[outFH. Write+Append]; 
SetIndex[tSH, GetIndex[bOutStream]]; 
bOutStream, reset[bOutStream]; 
bOutStream. destroy [bOutStream]; 
bOutStream ♦- tSH; 
FOR i IN opcode DO 
IF StringData[i] # NIL THEN 

BEGIN 

FOR j IN [O..StringData[i]. length) 

DO bOutStream. put[bOutStream. StringData[i][j]]; ENDLOOP; 

END; 
ENDLOOP: 
bOutStream. destroy [bOutStream]; 
RETURN 
END; 

OutOpParams: PROCEDURE - 
BEGIN 

time: STRING *- [20]; 

TimeDefs.AppendDayTime[time,TimeDefs.UnpackDT[TimeDefs.DefaultTime]]; 
time. length ♦- time. length - 3; 
apOutStream. reset[apOutStream]; 
OutString[" -- generated by OpDef sGenerator "L]; 
OutString[time]; 
OutString[" 

Q: TYPE = PRIVATE RECORD [ 

push: [0..3]. pop: [0..7]. length: [0..3], mark: BOOLEAN]; 
T: BOOLEAN = TRUE; F: BOOLEAN « FALSE; 

OpParms: PRIVATE ARRAY [0..256) OF Q « [ 
"L]; 

CollectOpData[]; 

apOutStream.destroy[apOutStreaffl]; 

RETURN 

END; 



OutMopcodes: PROCEDURE 
BEGIN 
1, J: CARDINAL; 
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i: opcode; 

time: STRING ^ [20]; 

TimeDefs.AppendDayTime[time,TimeDefs .UnpackDT[TimeDef s. Default! ime]]; 

time. length ♦■ time. length - 3; 

amOutStream. reset[amOutStream] ; 

mOutString[" -- generated by OpDefsGenerator "L]; 

mOutString[time]; 

mOutChar[IODefs.CR]; 

mOutString[modulename]; 

mOutString[": DEFINITIONS ■ 

BEGIN 

op: TYPE - [0..400B); 

"L]; 

FOR i IN opcode DO 

IF StringData[i] # NIL AND (1 <- StringData[i] .length) # THEN 
BEGIN 

IF 1 > 10 THEN ERROR OpNameTooLong[i]; 
FOR j IN (1..10) DO mOutCharC ] ENDLOOP; 
mOutString[pref ixString]; 
mOutString[StringData[i]]; 
mOutString[": op » "L]; 

IODefs.OutNumber[amOutStream. i, [8, FALSE, FALSE, 3]]; mOutChar['B]; 
mOutChar[' ;]; 
END 
ELSE FOR j IN [0..22) DO mOutChar[' ]; ENDLOOP; 
IF (i MOD 4) # 3 THEN mOutChar[' ] ELSE mOutChar[IODef s.CR]; 
ENDLOOP; 
mOutString["END. . , 
"L]; 

amOutStream.destroy[amOutStream]; 

RETURN 

END; 

OutName: PROCEDURE [s: STRING, n: CARDINAL] ■ 
BEGIN 

1: CARDINAL <- IF s = NIL THEN ELSE s. length; 
THROUGH (l..n] DO OutChar[IODef s .SP] ; ENDLOOP; 
OutString[s]; 
RETURN 
END; 

OutNum: PROCEDURE [n: CARDINAL] » 
BEGIN 

IODefs.OutNumber[apOutStream, n, [10 , FALSE, FALSE, 1]]; 
RETURN 
END; 

OutNumF: PROCEDURE [n: CARDINAL, f: lODef s.NumberFormat] - 
BEGIN 

IODefs.OutNumber[apOutStream, n, f]; 
RETURN 
END; 

OutString: PROCEDURE [s: STRING] - 
BEGIN 

i: CARDINAL; 
IF s # NIL THEN 

FOR i IN [0. .s. length) DO apOutStream.put[apOutStream. s[i]];ENDLOOP; 
RETURN 
END; 

mOutString: PROCEDURE [s: STRING] - 
BEGIN 

i: CARDINAL; 
U ^ # NIL THEN 

FOR i IN [0. .s. length) DO amOutStream.put[amOutStream, s[i]];ENDLOOP; 
RETURN 
END; 

OutChar: PROCEDURE [c: CHARACTER] « 

BEGIN apOutStream.put[apOutStream, c]; RETURN END; 
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mOutChar: PROCEDURE [c: CHARACTER] - 

BEGIN aniOutStream.put[amOutStreani, c]; RETURN END; 

DefauUNames: TYPE ■ {infile, apoutfile, amoutfile, boutfile, modulename, prefix}; 

MopDefaults: ARRAY DefauUNames OF STRING ♦■ [ 
"OpCodes.txt", 
"OpParams", 
"Mopcodes.mesa", 
"OpNames. binary", 
"Mopcodes", 
"z"]; 

FopDefauUs: ARRAY DefauUNames OF STRING ♦- [ 
"FOpCodes.txt", 
"FOpParams", 
"FOpCodes.mesa", 
"FOpNames .binary". 
"FOpCodes". 
"q"]; 

infile: STRING ^ [40]; 
apoutfile: STRING ^ [40]; 
amoutfile: STRING ^ [40]; 
boutfile: STRING <- [40]; 
modulename: STRING ♦- [40]; 
pref ixString: STRING ♦- [10]; 

outFH: FileHandle; 

SetOefaults: PROCEDURE [p: POINTER TO ARRAY DefauUNames OF STRING] - 
BEGIN OPEN StringDefs; 

infile. length<-0; AppendString[inf ile, p[infile]]; 
apoutfile. length<-0; AppendString[apoutf ile. p[apoutf ile]]; 
amoutf ile.length*-0 ; AppendString[amoutf ile, p[amoutf ile]]; 
boutf ile.length<-0; AppendString[boutf ile, p[boutf ile]]; 
modulename. length*-0; AppendString[modulename, p[modulename]]; 
pref ixString. length<-0; AppendString[pref ixString, p[prefix]]; 
END; 

GetResponse: PROCEDURE[prompt, response: STRING] « 
BEGIN OPEN lODefs; 
WriteString[prompt]; 
ReadID[response]; 
WriteChar[CR]; 
END; 

MiscDefs.SetBlock[BASE[StringData]. NIL, numopcodes]; 

lODef s.WriteString["Mesa OpData Generator 

"]; 

DO 

DO OPEN lODefs; 

WriteString[" 
Mopdata, Fopdata, or Quit: "]; 

SELECT ReadChar[] FROM 

•m,'M => BEGIN SetDef aul ts[@MopDefaul ts]; EXIT END; 
'f.'F => BEGIN SetDefaults[6FopDefaults]; EXIT END; 
'q, 'Q => GOTO done; 
ENDCASE; 

ENDLOOP; 
IODefs.WriteChar[IODefs.CR]; 

IODefs.WriteLine["Use escape key to get defaults"]; 
GetResponse["Input file: ", infile]; 
IF infile. length « THEN EXIT; 
GetResponse[" OpParams file: ", apoutfile]; 
GetResponse[" Mopcodes file: ", amoutfile]; 

GetResponse[" Module name (capitalize correctly): ", modulename]; 
GetResponse[" Prefix with: ", pref ixString]; 
GetResponse[" binary file for OpName strings: ". boutfile]; 
InStream ^ NewByteStream[inf ile, Read]; 

bOutStream *- CreateWordStream[outFH <- NewFile[boutf ile, Write+Append , Defaul tAccess], Write+Append]; 
amOutStream ♦- NewByteStream[amoutf ile, Write+Append]; 
apOutStream <- NewByteStream[apoutf ile, Write+Append]; 
OutOpParams[]; OutStrings[]; OutMopcodes[]; 
InStream. destroy [InStream]; 
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REPEAT done -> NULL; 
ENDLOOP; 

END... 



